unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ElTree, ElTreeStdEditors, ElXPThemedControl, ElEdits, ElBtnEdit,
  ElTreeCombo, RzButton, ExtCtrls, RzPanel;

type
  TForm1 = class(TForm)
    Tree_Demo: TElTree;
    Tool_1: TRzToolbar;
    Btnx_1: TRzToolButton;
    Btnx_2: TRzToolButton;
    procedure Btnx_1Click(Sender: TObject);
    procedure Btnx_2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Btnx_1Click(Sender: TObject);
var
  I:Integer;
  ItemA:TElTreeItem;

  StylA:TElCellStyle;
begin
  Tree_Demo.Items.Clear;
  Tree_Demo.ShowColumns:=True;
  Tree_Demo.ShowCheckboxes:=True;
  
  with Tree_Demo do
  begin
    Items.Clear;

    for I:= 0 to 9 do
    begin
      ItemA:=Items.Add(nil,Format('TEXT%D',[I]));
      ItemA.ColumnText.Add(Format('COLUMN1-%D',[I]));
      ItemA.ColumnText.Add(Format('COLUMN2-%D',[I]));
      ItemA.ShowCheckBox:=True;
      ItemA.CheckBoxEnabled:=False;

      ItemA.MainStyle.OwnerProps:=False;
      ItemA.MainStyle.TextColor:=clRed;
      ItemA.UseStyles:=True;
      //ItemA.CheckBoxState:=
      //ItemA.CheckBoxType:=
    end;
  end;  
end;

procedure TForm1.Btnx_2Click(Sender: TObject);
var
  DoubA:Double;
  DoubB:Extended;
  BoolA:Boolean;
begin
  DoubA:=8357.20;
  DoubB:=8357.20;

  BoolA:=DoubA <> DoubB;

  if boola then
  begin
    ShowMessage('true');
  end else
  begin
    ShowMessage('false');
  end;    
end;

end.
